function [x_h_rns_sca] = h_rns_sca(x)
x_h_rns_sca=1.4193960469820091e-11.*(((-1.26408575e8).*cos(x(3)) + ( ...
  -2.973626008e9).*cos(x(3) + x(4)) + (-6.900526968e9).*cos(x(3) +  ...
  x(4) + x(5)) + 6.54037659e9.*cos(x(3) + x(4) + x(5) + x(6)) +  ...
  2.1731369032e10.*cos(x(3) + x(4) + x(5) + x(6) + (-1.).*x(7)) +  ...
  2.5658269992e10.*cos(x(3) + x(4) + x(5) + x(6) + (-1.).*x(7) + ( ...
  -1.).*x(8)) + 3.452578425e9.*cos(x(3) + x(4) + x(5) + x(6) + (-1.) ...
  .*x(7) + (-1.).*x(8) + (-1.).*x(9)) + 7.68033525e8.*sin(x(3)) + ( ...
  -1.0407458475e10).*sin(x(3) + x(4) + x(5) + x(6) + (-1.).*x(7) + ( ...
  -1.).*x(8) + (-1.).*x(9))).^2 + ((-7.68033525e8).*cos(x(3)) +  ...
  1.0407458475e10.*cos(x(3) + x(4) + x(5) + x(6) + (-1.).*x(7) + ( ...
  -1.).*x(8) + (-1.).*x(9)) + (-1.26408575e8).*sin(x(3)) + ( ...
  -2.973626008e9).*sin(x(3) + x(4)) + (-6.900526968e9).*sin(x(3) +  ...
  x(4) + x(5)) + 6.54037659e9.*sin(x(3) + x(4) + x(5) + x(6)) +  ...
  2.1731369032e10.*sin(x(3) + x(4) + x(5) + x(6) + (-1.).*x(7)) +  ...
  2.5658269992e10.*sin(x(3) + x(4) + x(5) + x(6) + (-1.).*x(7) + ( ...
  -1.).*x(8)) + 3.452578425e9.*sin(x(3) + x(4) + x(5) + x(6) + (-1.) ...
  .*x(7) + (-1.).*x(8) + (-1.).*x(9))).^2).^(1/2);
